home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / A-COMAL Series / (k)aac.d64 / pascal-trig < prev    next >
Text File  |  2007-02-28  |  208b  |  13 lines
  1. var i: integer;
  2.     a,b,c: real;
  3. begin
  4.  a:=0.1;
  5.  b:=0.2;
  6.  writeln('   begin test');
  7.  for i:= 1 to 1000 do
  8.   c:=(sin(a/b)*cos(a/b));
  9.  writeln(' i=    ',i);
  10.  writeln(' c=    ',c:9:6);
  11.  writeln('   done');
  12. end.
  13.